﻿<%
'---------得到查询记录集的xml格式
function getRowItem(rs,RowStr)
	RowItem = ""
	rowarr = split(RowStr,",")
	for r=0 to ubound(rowarr)
		ritemkey	=	rowarr(r)
		ritemval	= rs(rowarr(r))
		RowItem = RowItem & vbcrlf & "<"&ritemkey&"><![CDATA["&ritemval&"]]></"&ritemkey&">"
	next
	getRowItem = RowItem
end function
%>